home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 002 / bluebery.arc / ZIPCLEAR.BAS (.txt) < prev   
Encoding:
GW-BASIC  |  1985-06-29  |  3.5 KB  |  127 lines
  1. 5  CLS:KEY OFF:SCREEN 0,0,0:WIDTH 80:CLEAR:FOR I=1 TO 10:KEY I,"":NEXT:KEY 2,"GOTO 60"+CHR$(13):KEY 10,"RUN"+CHR$(34)+"BLUEMENU"+CHR$(34)+CHR$(13):LIST 10-57
  2. 10  '******************** ZIPCLEAR OF FORMATTED SCREEN ************************
  3. 15  'KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE
  4. 17  'OPEN                IMMEDIATE CLEAR OF DESIGNATED SCREEN AREA                OPEN
  5. 19  'OPEN                                                                         OPEN
  6. 21  'OPEN    This simple program is a modification of a program contained in the  OPEN
  7. 23  'OPEN Letters to the Editor, PC Magazine. It may not work consistently in a   OPEN
  8. 25  'OPEN memory size of 64K or less. It will work in 128K. The program will      OPEN
  9. 27  'OPEN demonstate a "slow screen wash" and then ask for coordinate inputs to   OPEN
  10. 29  'OPEN clear the screen rapidly.  You can extract the routine and use in your  OPEN
  11. 31  'OPEN programs. It is very  effective.  Instead of putting in the corners of  OPEN
  12. 33  'OPEN the clear area with an prompt input statement, you can pre-program the  OPEN
  13. 35  'OPEN area you want cleared before you go to the ZIPCLEAR subroutine.         OPEN
  14. 37  'OPEN See LABELPRO.BAS and BLUEBERY.BAS for examples of routine in use.       OPEN
  15. 39  'OPEN    This program may be used without license or attribution.             OPEN
  16. 41  'OPEN                     (c) G I N A C O   - 1983           Ver 5.2/320/160  OPEN
  17. 43  'SCREENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENLOAD
  18. 55  '        *****  < F2 > to RUN  *******  < F10 > For BLUEMENU  *****
  19. 57  ' ====== To avoid DOCUMENTATION BOX each time, REM or DELETE  line 5 ======
  20. 60  CLS
  21. 100  CLS
  22. 110  CLEAR
  23. 120  SCREEN 0,0,0
  24. 130  WIDTH 80
  25. 140  LOCATE 1,4
  26. 150  PRINT "KEY"
  27. 160  LOCATE 1,5
  28. 170  PRINT STRING$(72,"THEN")
  29. 180  LOCATE 1,77
  30. 190  PRINT "CLOSE";
  31. 200  FOR I! = 2 TO 22
  32. 210    LOCATE I!,4
  33. 220    PRINT "OPEN"
  34. 230    LOCATE I!,77
  35. 240    PRINT "OPEN";
  36. 250  NEXT
  37. 260  LOCATE 23,4
  38. 270  PRINT "SCREEN"
  39. 280  LOCATE 23,5
  40. 290  PRINT STRING$(72,"THEN")
  41. 300  LOCATE 23,77
  42. 310  PRINT "LOAD";
  43. 320  KEY OFF
  44. 330  GOSUB 550
  45. 340  GOSUB 610
  46. 350  LOCATE 12,25
  47. 360  PRINT "THAT WAS AN EXAMPLE OF "; CHR$(34);"SLOW"; CHR$(34);" CLEAR"
  48. 370  FOR I! = 1 TO 3000
  49. 380  NEXT
  50. 390  LOCATE 12,12
  51. 400  PRINT SPC( 60)
  52. 410  LOCATE 6,20
  53. 420  PRINT "INDICATE CLEAR SPACE FOUR CORNER COORDINATES?"
  54. 430  LOCATE 7,23
  55. 440  PRINT "(ENTERED IN ROW,COLUMN FORMAT AS SHOWN)"
  56. 450  LOCATE 9,28
  57. 460  INPUT "UPPER LEFT ROW <i.e.; 6> ",UP.LEFT.ROW%
  58. 470  LOCATE 11,28
  59. 480  INPUT "UPPER LEFT COLUMN <i.e.; 10> ",UP.LEFT.COL%
  60. 490  LOCATE 13,28
  61. 500  INPUT "LOWER LEFT ROW <i.e.; 18> ",LOW.LEFT.ROW%
  62. 510  LOCATE 15,28
  63. 520  INPUT "RIGHT COLUMN <i.e.; 70> ",RIGHT.COL%
  64. 530  GOSUB 550
  65. 540  GOSUB 670
  66. 550  REM ***************** FILL SCREEN ROUTINE *******************************
  67. 560  FOR I! = 2 TO 22
  68. 570    LOCATE I!,6
  69. 580    PRINT STRING$(71,3);
  70. 590  NEXT
  71. 600  RETURN
  72. 610  REM ***************** SLOW CLEAR ROUTINE *******************************
  73. 620  FOR I! = 5 TO 19
  74. 630    LOCATE I!,11
  75. 640    PRINT SPC( 61);
  76. 650  NEXT
  77. 660  RETURN
  78. 670  REM ************* ZIPCLEAR INPUT PARAMETERS ***************************
  79. 680  DIM A%(22)
  80. 690  FOR I! = 0 TO 21
  81. 700    READ A%(I!)
  82. 710  NEXT
  83. 720  DATA&h8B55
  84. 730  DATA&hB8EC
  85. 740  DATA&H0600
  86. 750  DATA&H07B7
  87. 760  DATA&H768B
  88. 770  DATA&H8A0C
  89. 780  DATA&H8B2C
  90. 790  DATA&HA76
  91. 800  DATA&HC8A
  92. 810  DATA&H768B
  93. 820  DATA&H8A08
  94. 830  DATA&H8B34
  95. 840  DATA&H676
  96. 850  DATA&H148A
  97. 860  DATA&HCDFE
  98. 870  DATA&HC9FE
  99. 880  DATA&HCEFE
  100. 890  DATA&HCAFE
  101. 900  DATA&H10CD
  102. 910  DATA&HCA5D
  103. 920  DATA&H8
  104. 930  DATA&H0
  105. 940  R1% = UP.LEFT.ROW%
  106. 950  C1% = UP.LEFT.COL%
  107. 960  R2% = LOW.LEFT.ROW%
  108. 970  C2% = RIGHT.COL%
  109. 980  GOSUB 1010
  110. 990  GOTO 1060
  111. 1000  END
  112. 1010  REM **********  THE ACTUAL ZIPCLEAR SUBROUTINE IS HERE ******************
  113. 1020  DEF SEG
  114. 1030  SUBRT% = VARPTR(A%(0))
  115. 1040  CALL SUBRT%(R1%,C1%,R2%,C2%)
  116. 1050  RETURN
  117. 1060  LOCATE 12,25
  118. 1070  PRINT "THAT WAS AN EXAMPLE OF "; CHR$(34);"ZIPCLEAR"; CHR$(34)
  119. 1080  LOCATE 16,30
  120. 1090  PRINT "PRESS ANY KEY TO RERUN"
  121. 1100  A$ = INKEY$
  122. 1110  IF A$ = "" THEN 1080  ELSE 1120
  123. 1120  GOTO 100
  124. 1130  END
  125. 65000  ' ************************  SAVE ROUTINE  *******************************
  126. 65100  SAVE "B:ZIPCLEAR.BAS"
  127.